home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / patches / ami301c.zip / QKTERM.SM$ / QKTERM.SMM
INI File  |  1993-05-17  |  19KB  |  1,458 lines

  1. [ver]
  2.     4
  3. [sty]
  4.     
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     QMS-PS 810
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Determine how long it will take for equal periodic deposits to reach a specific amount.
  19.     
  20.     
  21.     
  22.     
  23.     737679064
  24.     14
  25.     732570070
  26.     307
  27.     6
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     1
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [tag]
  56.     Body Text
  57.     2
  58.     [fnt]
  59.         Times New Roman
  60.         240
  61.         0
  62.         49152
  63.     [algn]
  64.         1
  65.         1
  66.         0
  67.         0
  68.         0
  69.     [spc]
  70.         33
  71.         273
  72.         1
  73.         0
  74.         0
  75.         1
  76.         100
  77.     [brk]
  78.         4
  79.     [line]
  80.         8
  81.         0
  82.         1
  83.         0
  84.         1
  85.         1
  86.         1
  87.         10
  88.         10
  89.         1
  90.     [spec]
  91.         0
  92.         0
  93.         
  94.         0
  95.         1
  96.         1
  97.         0
  98.         0
  99.         0
  100.         0
  101.     [nfmt]
  102.         280
  103.         1
  104.         2
  105.         .
  106.         ,
  107.         $
  108.     Body Text
  109.     0
  110.     0
  111. [tag]
  112.     Body Single
  113.     3
  114.     [fnt]
  115.         Times New Roman
  116.         240
  117.         0
  118.         49152
  119.     [algn]
  120.         1
  121.         1
  122.         0
  123.         0
  124.         0
  125.     [spc]
  126.         33
  127.         273
  128.         1
  129.         0
  130.         0
  131.         1
  132.         100
  133.     [brk]
  134.         4
  135.     [line]
  136.         8
  137.         0
  138.         1
  139.         0
  140.         1
  141.         1
  142.         1
  143.         10
  144.         10
  145.         1
  146.     [spec]
  147.         0
  148.         0
  149.         
  150.         0
  151.         1
  152.         1
  153.         0
  154.         0
  155.         0
  156.         0
  157.     [nfmt]
  158.         280
  159.         1
  160.         2
  161.         .
  162.         ,
  163.         $
  164.     Body Single
  165.     0
  166.     0
  167. [tag]
  168.     Bullet
  169.     4
  170.     [fnt]
  171.         Times New Roman
  172.         240
  173.         0
  174.         49152
  175.     [algn]
  176.         1
  177.         1
  178.         0
  179.         288
  180.         288
  181.     [spc]
  182.         33
  183.         273
  184.         1
  185.         0
  186.         0
  187.         1
  188.         100
  189.     [brk]
  190.         4
  191.     [line]
  192.         8
  193.         0
  194.         1
  195.         0
  196.         1
  197.         1
  198.         1
  199.         10
  200.         10
  201.         1
  202.     [spec]
  203.         0
  204.         0
  205.         <*0>
  206.         360
  207.         1
  208.         1
  209.         0
  210.         0
  211.         0
  212.         0
  213.     [nfmt]
  214.         272
  215.         1
  216.         2
  217.         .
  218.         ,
  219.         $
  220.     Bullet
  221.     0
  222.     0
  223. [tag]
  224.     Bullet 1
  225.     5
  226.     [fnt]
  227.         Times New Roman
  228.         240
  229.         0
  230.         49152
  231.     [algn]
  232.         1
  233.         1
  234.         288
  235.         288
  236.         288
  237.     [spc]
  238.         33
  239.         273
  240.         1
  241.         0
  242.         0
  243.         1
  244.         100
  245.     [brk]
  246.         4
  247.     [line]
  248.         8
  249.         0
  250.         1
  251.         0
  252.         1
  253.         1
  254.         1
  255.         10
  256.         10
  257.         1
  258.     [spec]
  259.         0
  260.         0
  261.         <*5>
  262.         0
  263.         1
  264.         1
  265.         0
  266.         0
  267.         0
  268.         0
  269.     [nfmt]
  270.         280
  271.         1
  272.         2
  273.         .
  274.         ,
  275.         $
  276.     Bullet 1
  277.     0
  278.     0
  279. [tag]
  280.     Number List
  281.     6
  282.     [fnt]
  283.         Times New Roman
  284.         240
  285.         0
  286.         49152
  287.     [algn]
  288.         1
  289.         1
  290.         360
  291.         360
  292.         360
  293.     [spc]
  294.         33
  295.         273
  296.         1
  297.         0
  298.         0
  299.         1
  300.         100
  301.     [brk]
  302.         4
  303.     [line]
  304.         8
  305.         0
  306.         1
  307.         0
  308.         1
  309.         1
  310.         1
  311.         10
  312.         10
  313.         1
  314.     [spec]
  315.         0
  316.         0
  317.         <*:>.
  318.         360
  319.         1
  320.         1
  321.         0
  322.         16
  323.         0
  324.         0
  325.     [nfmt]
  326.         272
  327.         1
  328.         2
  329.         .
  330.         ,
  331.         $
  332.     Number List
  333.     0
  334.     0
  335. [tag]
  336.     Subhead
  337.     7
  338.     [fnt]
  339.         Times New Roman
  340.         240
  341.         0
  342.         49155
  343.     [algn]
  344.         1
  345.         1
  346.         0
  347.         0
  348.         0
  349.     [spc]
  350.         33
  351.         273
  352.         1
  353.         72
  354.         72
  355.         1
  356.         100
  357.     [brk]
  358.         4
  359.     [line]
  360.         8
  361.         0
  362.         1
  363.         0
  364.         1
  365.         1
  366.         1
  367.         10
  368.         10
  369.         1
  370.     [spec]
  371.         0
  372.         2
  373.         
  374.         0
  375.         1
  376.         1
  377.         0
  378.         0
  379.         0
  380.         0
  381.     [nfmt]
  382.         272
  383.         1
  384.         2
  385.         .
  386.         ,
  387.         $
  388.     Subhead
  389.     0
  390.     0
  391. [tag]
  392.     Title
  393.     8
  394.     [fnt]
  395.         Arial
  396.         360
  397.         0
  398.         16385
  399.     [algn]
  400.         4
  401.         1
  402.         0
  403.         0
  404.         0
  405.     [spc]
  406.         33
  407.         446
  408.         1
  409.         144
  410.         72
  411.         1
  412.         100
  413.     [brk]
  414.         16
  415.     [line]
  416.         8
  417.         0
  418.         1
  419.         0
  420.         1
  421.         1
  422.         1
  423.         10
  424.         10
  425.         1
  426.     [spec]
  427.         0
  428.         1
  429.         
  430.         0
  431.         1
  432.         1
  433.         0
  434.         0
  435.         0
  436.         0
  437.     [nfmt]
  438.         272
  439.         1
  440.         2
  441.         .
  442.         ,
  443.         $
  444.     Title
  445.     0
  446.     0
  447. [tag]
  448.     Header
  449.     9
  450.     [fnt]
  451.         Times New Roman
  452.         240
  453.         0
  454.         49152
  455.     [algn]
  456.         1
  457.         1
  458.         0
  459.         0
  460.         0
  461.     [spc]
  462.         33
  463.         273
  464.         1
  465.         0
  466.         0
  467.         1
  468.         100
  469.     [brk]
  470.         4
  471.     [line]
  472.         8
  473.         0
  474.         1
  475.         0
  476.         1
  477.         1
  478.         1
  479.         10
  480.         10
  481.         1
  482.     [spec]
  483.         0
  484.         0
  485.         
  486.         0
  487.         1
  488.         1
  489.         0
  490.         0
  491.         0
  492.         0
  493.     [nfmt]
  494.         280
  495.         1
  496.         2
  497.         .
  498.         ,
  499.         $
  500.     Header
  501.     0
  502.     0
  503. [tag]
  504.     Footer
  505.     11
  506.     [fnt]
  507.         Times New Roman
  508.         240
  509.         0
  510.         49152
  511.     [algn]
  512.         1
  513.         1
  514.         0
  515.         0
  516.         0
  517.     [spc]
  518.         33
  519.         273
  520.         1
  521.         0
  522.         0
  523.         1
  524.         100
  525.     [brk]
  526.         4
  527.     [line]
  528.         8
  529.         0
  530.         1
  531.         0
  532.         1
  533.         1
  534.         1
  535.         10
  536.         10
  537.         1
  538.     [spec]
  539.         0
  540.         0
  541.         
  542.         0
  543.         1
  544.         1
  545.         0
  546.         0
  547.         0
  548.         0
  549.     [nfmt]
  550.         280
  551.         1
  552.         2
  553.         .
  554.         ,
  555.         $
  556.     Footer
  557.     0
  558.     0
  559. [lay]
  560.     Standard
  561.     513
  562.     [rght]
  563.         15840
  564.         12240
  565.         1
  566.         576
  567.         1440
  568.         1
  569.         1440
  570.         504
  571.         0
  572.         1
  573.         0
  574.         1
  575.         0
  576.         2
  577.         1
  578.         576
  579.         11736
  580.         12
  581.         1
  582.         720
  583.         1
  584.         1440
  585.         1
  586.         2160
  587.         1
  588.         2880
  589.         1
  590.         3600
  591.         1
  592.         4320
  593.         1
  594.         5040
  595.         1
  596.         5760
  597.         1
  598.         6480
  599.         1
  600.         7200
  601.         1
  602.         7920
  603.         1
  604.         8640
  605.     [hrght]
  606.     [lyfrm]
  607.         1
  608.         11200
  609.         0
  610.         0
  611.         12240
  612.         1440
  613.         0
  614.         1
  615.         3
  616.         1 0 0 0 0 0 0
  617.         0
  618.         0
  619.         1
  620.     [frmlay]
  621.         1440
  622.         12240
  623.         1
  624.         1440
  625.         72
  626.         1
  627.         792
  628.         1440
  629.         0
  630.         1
  631.         0
  632.         1
  633.         1
  634.         0
  635.         1
  636.         1440
  637.         10800
  638.         2
  639.         2
  640.         4680
  641.         3
  642.         9360
  643.     [txt]
  644. >
  645.     [frght]
  646.     [lyfrm]
  647.         1
  648.         13248
  649.         0
  650.         14400
  651.         12240
  652.         15840
  653.         0
  654.         1
  655.         3
  656.         1 0 0 0 0 0 0
  657.         0
  658.         0
  659.         2
  660.     [frmlay]
  661.         15840
  662.         12240
  663.         1
  664.         1440
  665.         792
  666.         1
  667.         14472
  668.         1440
  669.         0
  670.         1
  671.         0
  672.         1
  673.         1
  674.         0
  675.         1
  676.         1440
  677.         10800
  678.         2
  679.         2
  680.         4680
  681.         3
  682.         9360
  683.     [txt]
  684. >
  685. [elay]
  686. [l1]
  687.     0
  688. [pg]
  689.     6
  690.     43 0 72 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  691.     82 0 5 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  692.     126 0 7 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  693.     168 0 32 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  694.     212 0 0 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  695.     236 0 10 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  696. [edoc]
  697. @Outline2@<:#284,11160>
  698.  
  699. <:#284,11160>Define    UnitTime    " Years"
  700.  
  701. <:#284,11160>
  702.  
  703. @Outline2@<:#284,11160>
  704.  
  705. @Outline2@<:#284,11160>Define  NumDec    2
  706.  
  707. <:#284,11160>Declare FontDlg(Action, Hdlg, id)
  708.  
  709. <:#284,11160>Declare CellEngine(action)
  710.  
  711. <:#284,11160>
  712.  
  713. Define    Descript    "Determine how long it will take for equal yearly deposits to reach a specific amount at a given interest rate."
  714.  
  715. <:#284,11160>
  716.  
  717. @Subhead@<:#284,11160>Function Main()
  718.  
  719. <:#284,11160>DefStr hInstance;
  720.  
  721. <:#284,11160>Mac = GetRunningMacroFile$()
  722.  
  723. <:#284,11160>FontDlg(1,0,0)
  724.  
  725. <:#284,11160>CellEngine(1)
  726.  
  727. <:#284,11160>SetDlgCallBack(0,"{Mac}!InitDlg")
  728.  
  729. <:#284,11160>FillEdit(1001, Descript)
  730.  
  731. <:#284,11160>SetDlgCallBack(8000,"{Mac}!DataChange")
  732.  
  733. <:#284,11160>SetDlgCallBack(8001,"{Mac}!DataChange")
  734.  
  735. <:#284,11160>SetDlgCallBack(8002,"{Mac}!DataChange")
  736.  
  737. <:#284,11160>SetDlgCallBack(21,"{Mac}!DataChange")
  738.  
  739. @Outline3@<:#284,11160>DlgKeyInterrupt(112, "{mac}!DisplayHelp")
  740.  
  741. <:#284,11160>
  742.  
  743. <:#284,11160>Box = DialogBox(".","Deprec")
  744.  
  745. <:#284,11160>If Box = 3
  746.  
  747. <:#284,11160>    ' this is the copy function
  748.  
  749. <:#284,11160>    Answer = GetDialogField$(8010)
  750.  
  751. <:#284,11160>    ClipBoardWrite(Answer,1)
  752.  
  753. <:#284,11160>Endif
  754.  
  755. <:#284,11160>
  756.  
  757. <:#284,11160>FontDlg(4,0,0)
  758.  
  759. <:#284,11160>CellEngine(0)
  760.  
  761. <:#284,11160>End function
  762.  
  763. <:#284,11160>
  764.  
  765. <:#284,11160>
  766.  
  767. @Subhead@<:#284,11160>Function DataChange(Hdlg, id, value)
  768.  
  769. <:#284,11160>IgnoreKeyBoard(2)
  770.  
  771. <:#284,11160>DefStr Allowance;
  772.  
  773. <:#284,11160>Payments = GetDlgItemText(hDlg, 8000) * 1
  774.  
  775. <:#284,11160>FV = GetDlgItemText(hDlg, 8001) * 1
  776.  
  777. <:#284,11160>Interest = (GetDlgItemText(Hdlg, 8002)) / 100
  778.  
  779. <:#284,11160>If GetDlgItemText(Hdlg, 21)
  780.  
  781. <:#284,11160>    Answer = CellEngine("@Term({Payments},{Interest},{FV}/(1+{Interest}))")
  782.  
  783. <:#284,11160>Else
  784.  
  785. <:#284,11160>    Answer = CellEngine("@Term({Payments},{Interest},{FV})")
  786.  
  787. <:#284,11160>Endif
  788.  
  789. <:#284,11160>Answer = StrCat$(FormatNum$("","",NumDec,Answer), UnitTime)
  790.  
  791. <:#284,11160>SetDlgItemText(hDlg, 8010, Answer)
  792.  
  793. <:#284,11160>End Function
  794.  
  795. @Subhead@<:#284,11160>
  796.  
  797. @Subhead@<:#284,11160>Function InitDlg(hDlg, id, value)
  798.  
  799. <:#284,11160>' use the fontdlg function to display the following control with a small font
  800.  
  801. IgnoreKeyBoard(2)
  802.  
  803. HourGlass(on)
  804.  
  805. FontDlg(3,Hdlg, 1000)
  806.  
  807. <:#284,11160>FontDlg(3, Hdlg, 1001)
  808.  
  809. <:#284,11160>FontDlg(3, Hdlg, 1004)
  810.  
  811. <:#284,11160>FontDlg(3, Hdlg, 1005)
  812.  
  813. <:#284,11160>FontDlg(3, Hdlg, 1006)
  814.  
  815. <:#284,11160>FontDlg(3, Hdlg, 8000)
  816.  
  817. <:#284,11160>FontDlg(3, Hdlg, 8001)
  818.  
  819. <:#284,11160>FontDlg(3, Hdlg, 8002)
  820.  
  821. <:#284,11160>FontDlg(3, Hdlg, 21)
  822.  
  823. HourGlass(off)
  824.  
  825. <:#284,11160>End Function
  826.  
  827. <:#284,11160>
  828.  
  829. <:#284,11160>
  830.  
  831. @Subhead@function DisplayHelp()
  832.  
  833. @Outline2@' two defines needed for help.  The help name and panel number are defined above
  834.  
  835. @Outline2@define FindWindowa() DllCall("user,FindWindow,HCC", %1, %2)
  836.  
  837. @Outline2@define WinHelpa(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
  838.  
  839. @Outline2@prohWnd = FindWindowa("AmiProWndA", 0)
  840.  
  841. @Outline2@helpfile = strcat$(GetAmiDirectory$(), "HelpPack.hlp")
  842.  
  843. @Outline2@PanelNum= 40 
  844.  
  845. @Outline2@WinHelpa(prohWnd, helpfile, 0x0001, Panelnum)
  846.  
  847. @Outline2@end function
  848.  
  849. @Subhead@
  850. <:#284,11160>
  851.  
  852. <:#284,11160>
  853.  
  854. <:#284,11160>
  855.  
  856. <:#284,11160>
  857.  
  858. <:p<* >>
  859.  
  860. @Subhead@<:#284,11160>Function CellEngine(Action)
  861.  
  862. <:#284,11160>'Available Actions
  863.  
  864. <:#284,11160>'    1         Start the engine and allocate globalvar
  865.  
  866. <:#284,11160>'    2        Return the handle to the instance of the sheet
  867.  
  868. <:#284,11160>'    0        Shut everything down
  869.  
  870. <:#284,11160>'    Default    Expect a formula and return an answer
  871.  
  872. <:#284,11160>
  873.  
  874. <:#284,11160>' these defines may be useful at the beginning of your macro
  875.  
  876. <:#284,11160>Define StartEngine    1
  877.  
  878. <:#284,11160>Define GetInstance    2
  879.  
  880. <:#284,11160>Define CloseEngine    0
  881.  
  882. <:#284,11160>
  883.  
  884. Define    CECREATEINSTANCE(LPHANDLE)    DllCall("LTSCE01.DLL,CECREATEINSTANCE,HO",%1)
  885.  
  886. Define    CEDESTROYINSTANCE(HANDLE)    DllCall("LTSCE01.DLL,CEDESTROYINSTANCE,HH",%1)
  887.  
  888. Define    CECALCNOW(HINSTANCE, lpFormula, lpOutPut)    DllCall("LTSCE01.DLL,CECALCNOW,HHCC",%1,%2,%3)
  889.  
  890. <:#284,11160>
  891.  
  892. <:#284,11160>DefStr hInstance, Answer, Var;
  893.  
  894. <:#284,11160>Mac = GetRunningMacroFile$()
  895.  
  896. <:#284,11160>GlobalInstance = StrCat$(Mac,"hIstance")
  897.  
  898. <:#284,11160>
  899.  
  900. <:#284,11160>Switch Action
  901.  
  902. <:#284,11160>    Case 1
  903.  
  904. <:#284,11160>        ' start the engine
  905.  
  906.         LibId = DLLLoadLib("LTSCE01.DLL","CECreateInstance","HO")
  907.  
  908. <:#284,11160>        If LibId = 0
  909.  
  910.             Message("LTSCE01.DLL not found.  Copy the dll to your windows directory")    
  911.  
  912. <:#284,11160>            Return -1;
  913.  
  914. <:#284,11160>        Endif
  915.  
  916. <:#284,11160>        RetVal = CECREATEINSTANCE(&hInstance)
  917.  
  918. <:#284,11160>        AllocGlobalVar("{GlobalInstance}",1)
  919.  
  920. <:#284,11160>        AllocGlobalVar("{Mac}LibId",1)
  921.  
  922. <:#284,11160>        SetGlobalVar("{Mac}Libid",LibId)
  923.  
  924. <:#284,11160>        SetGlobalVar("{GlobalInstance}",hInstance)
  925.  
  926. <:#284,11160>        Return hInstance;
  927.  
  928. <:#284,11160>        Break;
  929.  
  930. <:#284,11160>
  931.  
  932. <:#284,11160>    Case 2
  933.  
  934. <:#284,11160>        ' return the handle to the instance of the sheet
  935.  
  936. <:#284,11160>        AllocGlobalVar("{GlobalInstance}",1)
  937.  
  938. <:#284,11160>        hInstance = GetGlobalVar$("{GlobalInstance}")
  939.  
  940. <:#284,11160>        Return hInstance;
  941.  
  942. <:#284,11160>        Break;
  943.  
  944. <:#284,11160>
  945.  
  946. <:#284,11160>    Case 0
  947.  
  948. <:#284,11160>        ' destroy the instance of the sheet and free the global var and libid
  949.  
  950. <:#284,11160>        AllocGlobalVar("{GlobalInstance}",1)
  951.  
  952. <:#284,11160>        AllocGlobalVar("{Mac}LibId",1)
  953.  
  954. <:#284,11160>        hInstance = GetGlobalVar$("{GlobalInstance}")
  955.  
  956. <:#284,11160>        LibId = GetGlobalVar$("{Mac}LibId")
  957.  
  958. <:#284,11160>        If hInstance
  959.  
  960. <:#284,11160>            CEDestroyInstance(hInstance)
  961.  
  962. <:#284,11160>            DllFreeLib(Libid)
  963.  
  964. <:#284,11160>        Endif
  965.  
  966. <:#284,11160>        FreeGlobalVar("{GlobalInstance}")
  967.  
  968. <:#284,11160>        FreeGlobalVar("{Mac}LibId")
  969.  
  970. <:#284,11160>        Break;
  971.  
  972. <:#284,11160>
  973.  
  974. <:#284,11160>    Default
  975.  
  976. <:#284,11160>        ' Calculate the formula and return the answer
  977.  
  978. <:#284,11160>            AllocGlobalVar("{GlobalInstance}",1)
  979.  
  980. <:#284,11160>            hInstance = GetGlobalVar$("{GlobalInstance}")
  981.  
  982. <:#284,11160>            CECalcNow(hInstance,"{Action}",&Answer)
  983.  
  984. <:#284,11160>            Return Answer;
  985.  
  986. <:#284,11160>        Break;
  987.  
  988. <:#284,11160>EndSwitch
  989.  
  990. <:#284,11160>End Function
  991.  
  992. @Subhead@<:#284,11160>
  993.  
  994. <:#284,11160>
  995.  
  996. <:#284,11160>
  997.  
  998. <:#284,11160>
  999.  
  1000. <:#284,11160>
  1001.  
  1002. @Subhead@<:#284,11160>Function FontDlg(Action, Hdlg, id)
  1003.  
  1004. <:#284,11160>' 1    Create a font and allocvar
  1005.  
  1006. <:#284,11160>' 2    Return the handle of the create font 
  1007.  
  1008. <:#284,11160>' 3    Set the id specified to the font
  1009.  
  1010. <:#284,11160>' 4    Freeglobalvar and delete created object
  1011.  
  1012. <:#284,11160>
  1013.  
  1014. @Outline2@<:#568,11160>define    CreateFontDLG()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
  1015.  
  1016. @Outline2@<:#284,11160>define    DeleteObjectDLG(handle)    DllCall("gdi,DeleteObject,HH", %1)
  1017.  
  1018. @Outline2@<:#568,11160>define    SendMessageDLG(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
  1019.  
  1020. @Outline2@<:#284,11160>
  1021.  
  1022. @Outline2@<:#284,11160>
  1023.  
  1024. <:#284,11160>Switch Action
  1025.  
  1026. <:#284,11160>    Case 1    ' Create the font and store it
  1027.  
  1028. @Outline2@<:#284,11160>        Font = CreateFontDLG(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
  1029.  
  1030. <:#284,11160>        AllocGlobalVar("FontHandle",1)
  1031.  
  1032. <:#284,11160>        If Font
  1033.  
  1034. <:#284,11160>            SetGlobalVar("FontHandle",Font)
  1035.  
  1036. <:#284,11160>            Return Font
  1037.  
  1038. <:#284,11160>        Else
  1039.  
  1040. <:#284,11160>            Return 0;    ' no font
  1041.  
  1042. <:#284,11160>        Endif
  1043.  
  1044. <:#284,11160>        Break;
  1045.  
  1046. <:#284,11160>    Case 2    ' Return the handle to the font
  1047.  
  1048. <:#284,11160>        Handle = GetGlobalVar$("FontHandle")
  1049.  
  1050. <:#284,11160>        If Handle 
  1051.  
  1052. <:#284,11160>            Return Handle
  1053.  
  1054. <:#284,11160>        Else
  1055.  
  1056. <:#284,11160>            Return 0
  1057.  
  1058. <:#284,11160>        Endif
  1059.  
  1060. <:#284,11160>
  1061.  
  1062. <:#284,11160>    Case 3    ' Set the id to the font
  1063.  
  1064. <:#284,11160>        Handle = GetGlobalVar$("FontHandle")
  1065.  
  1066. <:#284,11160>        If Handle 
  1067.  
  1068. <:#284,11160>            IdControl = GetDlgITem(Hdlg, id)
  1069.  
  1070. <:#284,11160>            SendMessageDlg(idControl, 0x30, Handle, 0)
  1071.  
  1072. <:#284,11160>            Return 1
  1073.  
  1074. <:#284,11160>        Else
  1075.  
  1076. <:#284,11160>            Return 0
  1077.  
  1078. <:#284,11160>        Endif
  1079.  
  1080. <:#284,11160>        Break;        
  1081.  
  1082. <:#284,11160>        
  1083.  
  1084. <:#284,11160>    Case 4    ' Delete the font and clear the var
  1085.  
  1086. <:#284,11160>        Handle = GetGlobalVar$("FontHandle")
  1087.  
  1088. <:#284,11160>        If Handle
  1089.  
  1090. <:#284,11160>            DeleteObjectDLG(Handle)
  1091.  
  1092. <:#284,11160>            Stat = 1    
  1093.  
  1094. <:#284,11160>        Else
  1095.  
  1096. <:#284,11160>            Stat = 0
  1097.  
  1098. <:#284,11160>        Endif
  1099.  
  1100. <:#284,11160>        FreeGlobalVar("FontHandle")
  1101.  
  1102. <:#284,11160>        Return Stat        
  1103.  
  1104. <:#284,11160>    Default
  1105.  
  1106. <:#284,11160>        Message("Fontdlg received an invalid parameter {Action}")
  1107.  
  1108. <:#284,11160>EndSwitch    
  1109.  
  1110. <:#284,11160>
  1111.  
  1112. <:#284,11160>End Function
  1113.  
  1114. @Subhead@<:#284,11160>
  1115.  
  1116. <:#284,11160>
  1117.  
  1118. <:#284,11160>
  1119.  
  1120. @Subhead@<:#284,11160><:f,BArial,>
  1121.  
  1122. <:#284,11160>
  1123.  
  1124. <:#284,11160>
  1125.  
  1126. <:#284,11160>
  1127.  
  1128. <:#284,11160>
  1129.  
  1130. <:#284,11160>
  1131.  
  1132. <:#284,11160>
  1133.  
  1134. <:#284,11160>DIALOG    Deprec
  1135.  
  1136. <:#284,11160>-2134376448    13    76    49    167    90    ""    "AmiDialog"    "Determine Investment Growth"
  1137.  
  1138. <:#284,11160>FONT    8    "Helv"
  1139.  
  1140. <:#284,11160>52    34    41    12    8000    1350631552    "edit"    ""    0 
  1141.  
  1142. <:#284,11160>52    48    41    12    8001    1350631552    "edit"    ""    0 
  1143.  
  1144. <:#284,11160>52    62    22    12    8002    1350631552    "edit"    ""    0 
  1145.  
  1146. <:#284,11160>123    3    40    14    1    1342373889    "button"    "Done"    0 
  1147.  
  1148. <:#284,11160>123    19    40    14    3    1342373888    "button"    "Copy"    0 
  1149.  
  1150. <:#284,11160>116    59    47    8    8010    1342177280    "static"    ""    0 
  1151.  
  1152. <:#284,11160>3    36    48    8    1004    1342177280    "static"    "Annual payment:"    0 
  1153.  
  1154. <:#284,11160>3    50    40    8    1005    1342177280    "static"    "Future value:"    0 
  1155.  
  1156. <:#284,11160>3    64    40    8    1006    1342177280    "static"    "Interest rate:"    0 
  1157.  
  1158. <:#284,11160>3    3    116    30    1001    1342177280    "static"    ""    0 
  1159.  
  1160. <:#284,11160>108    43    56    32    20    1342308359    "button"    "Answer"    0 
  1161.  
  1162. <:#284,11160>78    64    6    10    1000    1342177280    "static"    "%"    0 
  1163.  
  1164. <:#568,11160>3    76    160    9    21    1342242819    "button"    "&Deposit is made at the beginning of each year."    0 
  1165.  
  1166. <:#284,11160>END DIALOG
  1167.  
  1168. >
  1169.  
  1170. [Embedded]
  1171. 00014952
  1172. >
  1173. [macsum] 7
  1174. Main 0 0 5 10
  1175. DataChange 484 3 6 35
  1176. InitDlg 847 3 1 50
  1177. DisplayHelp 1120 0 4 67
  1178. CellEngine 1305 1 8 82
  1179. FontDlg 2210 3 5 153
  1180. Deprec 3056 0 -1 219
  1181. [macse]
  1182. 14 Main
  1183. 0 802
  1184. 13
  1185. 8 2
  1186. 16 FontDlg 1 0 0
  1187. 16 CellEngine 1
  1188. 0 41 0 "{2}!InitDlg"
  1189. 0 31 1001 "Determine how long it will take for equal yearly deposits to reach a specific amount at a given interest rate."
  1190. 0 41 8000 "{2}!DataChange"
  1191. 0 41 8001 "{2}!DataChange"
  1192. 0 41 8002 "{2}!DataChange"
  1193. 0 41 21 "{2}!DataChange"
  1194. 0 47 112 "{2}!DisplayHelp"
  1195. 0 26 "." "Deprec"
  1196. 13
  1197. 8 3
  1198. 6 3
  1199. 5 3
  1200. 18 0
  1201. 11 00000437
  1202. 0 27 8010
  1203. 13
  1204. 8 4
  1205. 0 1038 "{4}" 1
  1206. 16 FontDlg 4 0 0
  1207. 16 CellEngine 0
  1208. 6 0
  1209. 15
  1210. 9
  1211. 14 DataChange
  1212. 0 32 2
  1213. 0 42 "{0}" 8000
  1214. 13
  1215. 5 1
  1216. 4 0
  1217. 8 5
  1218. 0 42 "{0}" 8001
  1219. 13
  1220. 5 1
  1221. 4 0
  1222. 8 6
  1223. 0 42 "{0}" 8002
  1224. 13
  1225. 5 100
  1226. 4 1
  1227. 8 7
  1228. 0 42 "{0}" 21
  1229. 13
  1230. 11 00000231
  1231. 16 CellEngine "@Term({5},{7},{6}/(1+{7}))"
  1232. 13
  1233. 8 8
  1234. 10 00000276
  1235. 16 CellEngine "@Term({5},{7},{6})"
  1236. 13
  1237. 8 8
  1238. 0 19 "" "" 2 "{8}"
  1239. 13
  1240. 0 16 [X] " Years"
  1241. 13
  1242. 8 8
  1243. 0 43 "{0}" 8010 "{8}"
  1244. 6 3
  1245. 15
  1246. 9
  1247. 14 InitDlg
  1248. 0 32 2
  1249. 0 296 1
  1250. 16 FontDlg 3 "{0}" 1000
  1251. 16 FontDlg 3 "{0}" 1001
  1252. 16 FontDlg 3 "{0}" 1004
  1253. 16 FontDlg 3 "{0}" 1005
  1254. 16 FontDlg 3 "{0}" 1006
  1255. 16 FontDlg 3 "{0}" 8000
  1256. 16 FontDlg 3 "{0}" 8001
  1257. 16 FontDlg 3 "{0}" 8002
  1258. 16 FontDlg 3 "{0}" 21
  1259. 0 296 0
  1260. 6 3
  1261. 15
  1262. 9
  1263. 14 DisplayHelp
  1264. 0 284 "user,FindWindow,HCC" "AmiProWndA" 0
  1265. 13
  1266. 8 1
  1267. 0 798
  1268. 13
  1269. 0 16 [X] "HelpPack.hlp"
  1270. 13
  1271. 8 2
  1272. 5 40
  1273. 8 3
  1274. 0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 "{3}"
  1275. 6 0
  1276. 15
  1277. 9
  1278. 14 CellEngine
  1279. 0 802
  1280. 13
  1281. 8 5
  1282. 0 16 "{5}" "hIstance"
  1283. 13
  1284. 8 6
  1285. 5 1
  1286. 6 0
  1287. 18 0
  1288. 11 00000427
  1289. 0 297 "LTSCE01.DLL" "CECreateInstance" "HO"
  1290. 13
  1291. 8 7
  1292. 6 7
  1293. 5 0
  1294. 18 0
  1295. 11 00000258
  1296. 0 3 "LTSCE01.DLL not found.  Copy the dll to your windows directory"
  1297. 5 -1
  1298. 15
  1299. 9
  1300. 0 284 "LTSCE01.DLL,CECREATEINSTANCE,HO" &2
  1301. 13
  1302. 8 8
  1303. 0 271 "{6}" 1
  1304. 0 271 "{5}LibId" 1
  1305. 0 264 "{5}Libid" "{7}"
  1306. 0 264 "{6}" "{2}"
  1307. 6 2
  1308. 15
  1309. 9
  1310. 10 00000893
  1311. 10 00000893
  1312. 5 2
  1313. 6 0
  1314. 18 0
  1315. 11 00000531
  1316. 0 271 "{6}" 1
  1317. 0 265 "{6}"
  1318. 13
  1319. 8 2
  1320. 6 2
  1321. 15
  1322. 9
  1323. 10 00000893
  1324. 10 00000893
  1325. 5 0
  1326. 6 0
  1327. 18 0
  1328. 11 00000780
  1329. 0 271 "{6}" 1
  1330. 0 271 "{5}LibId" 1
  1331. 0 265 "{6}"
  1332. 13
  1333. 8 2
  1334. 0 265 "{5}LibId"
  1335. 13
  1336. 8 7
  1337. 6 2
  1338. 11 00000723
  1339. 0 284 "LTSCE01.DLL,CEDESTROYINSTANCE,HH" "{2}"
  1340. 0 298 "{7}"
  1341. 0 266 "{6}"
  1342. 0 266 "{5}LibId"
  1343. 10 00000893
  1344. 10 00000893
  1345. 0 271 "{6}" 1
  1346. 0 265 "{6}"
  1347. 13
  1348. 8 2
  1349. 0 284 "LTSCE01.DLL,CECALCNOW,HHCC" "{2}" "{0}" &3
  1350. 6 3
  1351. 15
  1352. 9
  1353. 10 00000893
  1354. 6 1
  1355. 15
  1356. 9
  1357. 14 FontDlg
  1358. 5 1
  1359. 6 0
  1360. 18 0
  1361. 11 00000255
  1362. 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
  1363. 13
  1364. 8 4
  1365. 0 271 "FontHandle" 1
  1366. 6 4
  1367. 11 00000217
  1368. 0 264 "FontHandle" "{4}"
  1369. 6 4
  1370. 15
  1371. 9
  1372. 10 00000229
  1373. 5 0
  1374. 15
  1375. 9
  1376. 10 00000834
  1377. 10 00000834
  1378. 5 2
  1379. 6 0
  1380. 18 0
  1381. 11 00000381
  1382. 0 265 "FontHandle"
  1383. 13
  1384. 8 5
  1385. 6 5
  1386. 11 00000356
  1387. 6 5
  1388. 15
  1389. 9
  1390. 10 00000368
  1391. 5 0
  1392. 15
  1393. 9
  1394. 10 00000834
  1395. 5 3
  1396. 6 0
  1397. 18 0
  1398. 11 00000596
  1399. 0 265 "FontHandle"
  1400. 13
  1401. 8 5
  1402. 6 5
  1403. 11 00000558
  1404. 0 44 "{1}" "{2}"
  1405. 13
  1406. 8 6
  1407. 0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{5}" 0
  1408. 5 1
  1409. 15
  1410. 9
  1411. 10 00000570
  1412. 5 0
  1413. 15
  1414. 9
  1415. 10 00000834
  1416. 10 00000834
  1417. 5 4
  1418. 6 0
  1419. 18 0
  1420. 11 00000785
  1421. 0 265 "FontHandle"
  1422. 13
  1423. 8 5
  1424. 6 5
  1425. 11 00000730
  1426. 0 284 "gdi,DeleteObject,HH" "{5}"
  1427. 5 1
  1428. 8 7
  1429. 10 00000740
  1430. 5 0
  1431. 8 7
  1432. 0 266 "FontHandle"
  1433. 6 7
  1434. 15
  1435. 9
  1436. 10 00000834
  1437. 0 3 "Fontdlg received an invalid parameter {0}"
  1438. 6 3
  1439. 15
  1440. 9
  1441. DIALOG Deprec
  1442. -2134376448 13 76 49 167 90 "" "AmiDialog" "Determine Investment Growth" 
  1443. FONT 8 "Helv" 
  1444. 52 34 41 12 8000 1350631552 "edit" "" 0 
  1445. 52 48 41 12 8001 1350631552 "edit" "" 0 
  1446. 52 62 22 12 8002 1350631552 "edit" "" 0 
  1447. 123 3 40 14 1 1342373889 "button" "Done" 0 
  1448. 123 19 40 14 3 1342373888 "button" "Copy" 0 
  1449. 116 59 47 8 8010 1342177280 "static" "" 0 
  1450. 3 36 48 8 1004 1342177280 "static" "Annual payment:" 0 
  1451. 3 50 40 8 1005 1342177280 "static" "Future value:" 0 
  1452. 3 64 40 8 1006 1342177280 "static" "Interest rate:" 0 
  1453. 3 3 116 30 1001 1342177280 "static" "" 0 
  1454. 108 43 56 32 20 1342308359 "button" "Answer" 0 
  1455. 78 64 6 10 1000 1342177280 "static" "%" 0 
  1456. 3 76 160 9 21 1342242819 "button" "&Deposit is made at the beginning of each year." 0 
  1457. 00014977
  1458.